home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / MATH / MATHCPLX.PAS next >
Pascal/Delphi Source File  |  1996-07-21  |  767b  |  28 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; complex math
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBMTH, EFLIBSCR;
  10.  
  11.  
  12. var N1, N2, N3 : ComplexObjectType;
  13.     { EFLIBs complex numbers are handled in OOP }
  14.  
  15. begin
  16.      N1.Initialize (12.12, -4);
  17.      N2.Initialize (9, 3);
  18.      N3.Initialize (6, -2);
  19.  
  20.      N1.Add (N2);
  21.      N1.Divide (N3);
  22.  
  23.      Screen.Write ('The resulting complex number is ');
  24.      N1.Write (@Screen);
  25.      Screen.WriteLn ('.');
  26.  
  27.      N3.Intercept; N2.Intercept; N1.Intercept;
  28. end.